plot(P.6,P.now, type="b") 
plot(log(P.3),log(P.now), type="b", xlab="log(abundance of prev. gen.)", ylab="log(abundance of curr. gen.)") 